(setenv): Call set-time-zone-rule when setting TZ.

diff --git a/lisp/env.el b/lisp/env.el
index 6a01a690d4071036b779dc10e4bc2190cd099fa7..e78bbb314d984cef1abc73aa4cada78d3174d097 100644 (file)
--- a/lisp/env.el
+++ b/lisp/env.el
@@ -92,6 +92,8 @@ This function works by modifying `process-environment'."
          (case-fold-search nil)
          (scan process-environment)
          found)
+      (if (string-equal "TZ" variable)
+         (set-time-zone-rule value))
       (while scan
        (cond ((string-match pattern (car scan))
               (setq found t)